home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / convert.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  3.1 KB  |  76 lines
  1. (*      File name: Conversions.def                              *)
  2. (*      Creation : Orginal m2m File                             *)
  3. (*      Function : Number to string conversion                  *)
  4. (*      By       : ETH                                          *)
  5. (*                                                              *)
  6. (*
  7. *    Copyright (c) 1985,1986,1987,1988,1989 by
  8. *    ana-systems, Foster City, California.
  9. *    All Rights Reserved.
  10. *
  11. *    This software is furnished under a license and may be used and copied
  12. *    only  in accordance with  the  terms  of  such  license and  with the
  13. *    inclusion of the above copyright notice.  This software or  any other
  14. *    copies thereof may not be provided or otherwise made available to any
  15. *    other  person.   No title to and ownership of the  software is  herby
  16. *    transferred.
  17. *
  18. *    The information in this software is  subject to change without notice
  19. *    and  should  not be construed as a commitment by ana-systems.   No
  20. *    warranty is implied or expressed.
  21. * 
  22. *    SCCID  = "1.1    1/26/86"; 
  23. *)
  24. (*      History of modifcation                                  *)
  25. (*      Date            Who             Why                     *)
  26. (*      7/5/84          Morris          Change to BTS           *)
  27. (*                                                              *)
  28. DEFINITION MODULE Convert;                  (* LG *)
  29.    
  30.   EXPORT QUALIFIED IntToStr,StrToInt, 
  31.                    CardToStr, StrToCard,
  32.                    NumToStr, StrToNum,
  33.                    OctalToStr,HexToStr;
  34.                    
  35.  
  36.   PROCEDURE OctalToStr(num, len: CARDINAL; VAR str: ARRAY OF CHAR;
  37.                         VAR success : BOOLEAN);
  38.     (* conversion of an octal number to a string *) 
  39.  
  40.   PROCEDURE HexToStr(num, len: CARDINAL; VAR str: ARRAY OF CHAR;
  41.                         VAR success : BOOLEAN);
  42.     (* conversion of a hexadecimal number to a string *) 
  43.  
  44.   PROCEDURE CardToStr  (card: CARDINAL; VAR str: ARRAY OF CHAR;
  45.                                width : CARDINAL;
  46.                            VAR success : BOOLEAN);
  47.   
  48.     (* conversion of a cardinal decimal number to a string *) 
  49.  
  50.   PROCEDURE IntToStr      (int: INTEGER; 
  51.                            VAR str: ARRAY OF CHAR; 
  52.                                width : CARDINAL;
  53.                            VAR success : BOOLEAN);
  54.   
  55.   PROCEDURE NumToStr      (num: CARDINAL; 
  56.                            VAR str: ARRAY OF CHAR; 
  57.                                base :  CARDINAL;
  58.                                width : CARDINAL;
  59.                            VAR success : BOOLEAN);
  60.  
  61.   PROCEDURE StrToInt ( VAR str: ARRAY OF CHAR;
  62.                        VAR int : INTEGER;
  63.                        VAR success : BOOLEAN);
  64.  
  65.   PROCEDURE StrToCard ( VAR str: ARRAY OF CHAR;
  66.                        VAR card : CARDINAL;
  67.                        VAR success : BOOLEAN);
  68.  
  69.   PROCEDURE StrToNum ( VAR str: ARRAY OF CHAR;
  70.                        VAR num : CARDINAL;
  71.                           base :  CARDINAL;
  72.                        VAR success : BOOLEAN);
  73.  
  74.     (* conversion of an integer decimal number to a string *) 
  75. END Convert.
  76.